home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 Janurary / 64er_Magazin_89-01_1989_Markt__Technik_de_Side_C.d64 / multi 16 demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  50 lines
  1. 10 rem **   mutli 16 written '88 by
  2. 11 rem  *       frank deinzer
  3. 12 rem  *       tannenstrasse 20
  4. 13 rem  *  8505 roethenbach
  5. 14 rem **
  6. 15 rem            demo
  7. 16 :
  8. 18 ifpeek(52736)<>76thenload"multi 16",8,1
  9. 19 sys58648:sys64789:sys64931
  10. 20 poke53281,.:poke53280,.
  11. 23 fort=12864to13952:poket,0:next
  12. 25 ba=49152+15*256 : rem basisadresse von vic-multi 16
  13. 30 v1=ba:v2=ba+3*16: rem neuen vic adressen
  14. 35 z1=ba+6*16:z2=ba+7*16:rem spritepointer adressen
  15. 40 sa=49152+14*256:rem startadresse
  16. 50 print"[147]dieses programm kann 16 sprites un-"
  17. 55 print"eingeschraenkt anzeigen (auch z.b alle"
  18. 60 print"16 nebeneinander)."
  19. 65 print"einen moment bitte":poke56334,0:poke1,51:print""
  20. 70 fort=0to15:po=201*64+t*64
  21. 75 nu$=right$("0"+right$(str$(t+1),len(str$(t+1))-1),2)
  22. 80 a1=asc(left$(nu$,1)):a2=asc(right$(nu$,1)):print"[145]"nu$
  23. 85 forr=0to7
  24. 90 pokepo+r*3,peek(a1*8+53248+r)
  25. 95 pokepo+r*3+1,peek(a2*8+53248+r)
  26. 100 nextr
  27. 105 nextt
  28. 110 poke1,55:poke56334,1
  29. 113 sys sa+3:remstart incl. init
  30. 115 print"[147]jetzt werden nacheinander die 16 sprite"
  31. 120 print"eingeschaltet:":fort=0to7:pokez1+t,201+t:next
  32. 123 fort=0to7:pokez2+t,209+t:next
  33. 125 fort=1to15step2:pokev1+t,100:next
  34. 130 a=20:fort=0to14step2:pokev1+t,a:a=a+20:next
  35. 135 fort=1to15step2:pokev2+t,100:next
  36. 140 fort=0to14step2:pokev2+t,a:a=a+20:ifa>255then
  37. 145 ifa>255thena=a-256:pokev2+16,240
  38. 150 next
  39. 155 l=0:fort=0to7:l=l+2^t:pokev1+21,l
  40. 160 forr=1to1000:nextr:nextt
  41. 165 l=0:fort=0to7:l=l+2^t:pokev2+21,l
  42. 170 forr=1to1000:nextr:nextt
  43. 175 fort=1to15step2:forr=100to200step1:pokev1+t,int(r):nextr,t
  44. 180 fort=1to15step2:forr=100to200step1:pokev2+t,int(r):nextr,t
  45. 190 fort=39to46:pokev1+t,1:forr=1to300:nextr,t
  46. 195 fort=39to46:pokev2+t,1:forr=1to300:nextr,t
  47. 200 fort=39to46:pokev1+t,2:forr=1to300:nextr,t
  48. 205 fort=39to46:pokev2+t,2:forr=1to300:nextr,t
  49. 210 fort=1to4000:next:run
  50.